home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gs_cidfn.ps < prev    next >
Text File  |  1996-01-10  |  9KB  |  275 lines
  1. %    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % ProcSet for implementing CID-keyed fonts.
  19. % When this is run, systemdict is still writable.
  20.  
  21. %**************** This file isn't even close to being usable:
  22. %    - It doesn't include the actual character mapper (BuildGlyph).
  23. %    - CMap support mostly isn't implemented.
  24. %    - It has never been tested on a real font.
  25. %**************** So don't even think of actually trying to use it!
  26.  
  27. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  28. .currentglobal true .setglobal
  29.  
  30. /GS_CIDInit_ProcSet 30 dict dup begin
  31.  
  32. % ---------------- CIDFont operators ---------------- %
  33.  
  34. /StartData        % <cidfontdict> <(Binary)|(Hex)> <datalength>
  35.             %   StartData -
  36.  { 2 index begin    % CID font dict
  37.    20 dict begin    % temporary dict
  38.    /datalength exch def
  39.    (Hex) eq /hex exch def
  40.    /cidfont exch def
  41.    /startdata currentfile fileposition def
  42.    
  43.     % Read the character data into an array of strings.
  44.     % There's no particular reason to prefer long strings over short,
  45.     % so we just create a separate string for each character.
  46.  
  47.    /charstrings CIDCount array def
  48.    /fontindices FDArray length FDBytes 1 eq { string } { array } ifelse def
  49.    0 1 CIDCount 1 sub
  50.     { /cid exch def
  51.       currentfile FDBytes GDBytes add cid mul startdata add setfileposition
  52.       fontindices cid FDBytes .readint put
  53.       /pos GDBytes .readint def
  54.       FDBytes .readint pop    % skip FD of next entry
  55.       GDBytes .readint pos sub
  56.       dup 0 eq
  57.        { pop null }
  58.        { currentfile pos setfileposition string readstring pop }
  59.       ifelse
  60.       charstrings cid 3 -1 roll put
  61.     }
  62.    for
  63.  
  64.     % Process each font in the FDArray.
  65.     % For Type 3 fonts, just do a definefont with an empty Encoding.
  66.     % For Type 1 fonts, read the Subrs (don't bother to check for
  67.     % duplicates), and set CharStrings to the character data array.
  68.     % We don't support embedded Type 0 fonts, but it isn't clear
  69.     % whether they're allowed anyway.
  70.  
  71.    cidfont /Encoding [ FDArray
  72.     { dup /FontType get 1 eq
  73.        { dup /CharStrings charstrings put
  74.      /Private get
  75.      dup /SubrCount known
  76.       { begin /Subrs [    % Private
  77.         0 1 SubrCount 1 sub
  78.          { SDBytes mul SubrMapOffset add startdata add
  79.            currentfile exch setfileposition
  80.            /pos SDBytes .readint def
  81.            SDBytes .readint pos sub
  82.            currentfile pos setfileposition string readstring pop
  83.          }
  84.         ] readonly def end    % Private
  85.       }
  86.      if pop
  87.        }
  88.       if
  89.       dup /Encoding [] put
  90.       dup /FontName get exch definefont
  91.     }
  92.    forall ] readonly def
  93.  
  94.     % Install the rest of the data in the font.
  95.  
  96.    cidfont /FontType 0 put    % ???
  97.    cidfont /CharStrings charstrings readonly put
  98.    cidfont /FontIndices fontindices readonly put
  99.    FontName cidfont /CIDFont defineresource pop
  100.  
  101.     % Wrap up.
  102.  
  103.    end            % temporary dict
  104.    end            % CID font dict
  105.    end            % resource dict
  106.  } bind def
  107.  
  108. /.readint        % <nbytes> .readint <int>
  109.  { 0 exch { 8 bitshift currentfile read pop add } repeat
  110.  } bind def
  111.  
  112. % ---------------- CMap operators ---------------- %
  113.  
  114. % We create the following structures for character code mapping.
  115. %    Map - a multi-level array indexed by the successive bytes of
  116. %      the character code.  All of the arrays are read-only.
  117.  
  118. % ------ Font-level operators ------ %
  119.  
  120. /begincmap        % - begincmap -
  121.  { /Map 256 array def
  122.  } bind def
  123. /endcmap        % - endcmap -
  124.  { /Map Map .endmap def
  125.  } bind def
  126.  
  127. /begincodespacerange    % <count> begincodespacerange -
  128.  { pop mark
  129.  } bind def
  130. /endcodespacerange    % <code_lo> <code_hi> ... endcodespacerange -
  131.  { counttomark 2 idiv { Map .addcodespacerange } repeat pop
  132.  } bind def
  133.  
  134. /.addcodespacerange    % <code_lo> <code_hi> <map> .addcodespacerange -
  135.  { 2 index length 1 eq
  136.     { 2 { 3 -1 roll 0 get } repeat 1 exch
  137.        { 2 copy 0 put pop } for pop
  138.     }
  139.     { 2 index 0 get 1 3 index 0 get
  140.       6 -2 roll
  141.       2 { 1 1 index length 1 sub getinterval 6 1 roll } repeat
  142.         % Stack: lo hi map lo0 1 hi0
  143.        { 2 copy get null eq { 2 copy 256 array put } if
  144.          4 copy get .addcodespacerange pop
  145.        }
  146.       for pop pop pop
  147.     }
  148.    ifelse
  149.  } bind def
  150. /.endmap        % <map> .endmap <map>
  151.  { dup type /arraytype eq { dup { .endmap exch } forall astore readonly } if
  152.  } bind def
  153.  
  154. /usecmap        % <CMap_name> usecmap -
  155.  { /CMap findresource
  156.    dup length dict copy
  157.    currentdict end exch copy begin
  158.  } bind def
  159.  
  160. % ------ Rearranged font operators ------ %
  161.  
  162. /beginrearrangedfont    % <font_name> <font*> beginrearrangedfont -
  163.  {    (NOT IMPLEMENTED YET.\n) print flush
  164.  } bind def
  165. /endrearrangedfont    % - endrearrangedfont -
  166.  {    (NOT IMPLEMENTED YET.\n) print flush
  167.  } bind def
  168.  
  169. /usefont        % <fontID> usefont -
  170.  {    (NOT IMPLEMENTED YET.\n) print flush
  171.  } bind def
  172.  
  173. /beginusematrix        % <fontID> beginusematrix -
  174.  {    (NOT IMPLEMENTED YET.\n) print flush
  175.  } bind def
  176. /endusematrix        % <matrix> endusematrix -
  177.  {    (NOT IMPLEMENTED YET.\n) print flush
  178.  } bind def
  179.  
  180. % ------ Character name/code selector operators ------ %
  181.  
  182. /beginbfchar        % <count> beginbfchar -
  183.  {    (NOT IMPLEMENTED YET.\n) print flush
  184.  } bind def
  185. /endbfchar        % <code> <to_code|charname> ... endbfchar
  186.  {    (NOT IMPLEMENTED YET.\n) print flush
  187.  } bind def
  188.  
  189. /beginbfrange        % <count> beginbfrange -
  190.  {    (NOT IMPLEMENTED YET.\n) print flush
  191.  } bind def
  192. /endbfrange        % <code_lo> <code_hi> <to_code|(charname*)> ...
  193.             %   endbfrange -
  194.  {    (NOT IMPLEMENTED YET.\n) print flush
  195.  } bind def
  196.  
  197. % ------ CID selector operators ------ %
  198.  
  199. /begincidchar        % <count> begincidchar -
  200.  { pop mark
  201.  } bind def
  202. /endcidchar        % <code> <cid> ... endcidchar -
  203.  { Map counttomark 2 idiv { 2 index 3 1 roll .addcidrange exch pop } repeat
  204.    /Map exch store pop
  205.  } bind def
  206.  
  207. /begincidrange        % <count> begincidrange -
  208.  { pop mark
  209.  } bind def
  210. /endcidrange        % <code_lo> <code_hi> <cid_base> ... endcidrange -
  211.  { Map counttomark 3 idiv { .addcidrange exch pop } repeat
  212.    /Map exch store pop
  213.  } bind def
  214.  
  215. /.addcidrange        % <code_lo> <code_hi> <cid_base> <map> .addcidrange
  216.             %   <cid_next> <map>
  217.  {    % We may be updating a (partly) read-only map from another CMap.
  218.     % If so, implement copy-on-write.
  219.    dup wcheck not { dup length array copy } if
  220.    3 index length 1 eq
  221.     { 2 { 4 -1 roll 0 get } repeat 1 exch
  222.        { 2 copy 4 index put pop exch 1 add exch } for
  223.     }
  224.     { 3 index 0 get 1 4 index 0 get
  225.       7 -2 roll
  226.       2 { 1 1 index length 1 sub getinterval 7 1 roll } repeat
  227.         % Stack: lo hi next map lo0 1 hi0
  228.        { 5 copy get .addcidrange
  229.         % Stack: lo hi oldnext map i next submap
  230.      exch 5 1 roll 4 -1 roll pop
  231.         % Stack: lo hi next map i submap
  232.      3 copy put pop pop
  233.        }
  234.       for 4 -2 roll pop pop
  235.     }
  236.    ifelse
  237.  } bind def
  238.  
  239. % ------ notdef operators ------ %
  240.  
  241. /beginnotdefchar    % <count> beginnotdefchar -
  242.  { pop mark
  243.  } bind def
  244. /endnotdefchar        % <code> <cid> ... endnotdefchar -
  245.  { counttomark 2 idiv { 1 index exch .addnotdefrange } repeat pop
  246.  } bind def
  247.  
  248. /beginnotdefrange    % <count> beginnotdefrange -
  249.  { pop mark
  250.  } bind def
  251. /endnotdefrange        % <code_lo> <code_hi> <cid> ... endnotdefrange -
  252.  { counttomark 3 idiv { .addnotdefrange } repeat pop
  253.  } bind def
  254.  
  255. /.addnotdefrange    % <code_lo> <code_hi> <cid_base> .addnotdefrange -
  256.  {    (NOT IMPLEMENTED YET.\n) print flush
  257.  } bind def
  258.  
  259. % ---------------- Resource category definition ---------------- %
  260.  
  261. end readonly def
  262.  
  263. /defineresource where
  264.  { pop
  265.    [/CIDFont /CMap]
  266.     { /Generic /Category findresource dup length dict copy
  267.       /Category defineresource pop
  268.     }
  269.    forall
  270.    /CIDInit GS_CIDInit_ProcSet /ProcSet defineresource pop
  271.  }
  272. if
  273.  
  274. .setglobal
  275.